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-- ExternalUtil ities.Mesa 
-- Edited by: 

Johnsson August 29. 1978 9:37 AM 

Sandman May 22, 1978 11:51 AM 

Barbara July 18, 1978 2:59 PM 

DIRECTORY 

AUoDefs: FROM "altodefs" USING [PageSize], 
AllocDefs: FROM "allocdefs" USING [Def auUDataSegmentlnfo] , 
AUoFileDefs: FROM "altof il edef s" USING [CFA, FA], 
ControlDefs: FROM "controldef s" USING [ 

EPIndex, EPRange. FrameHandle, GET, GFTIndex, GFTItem, GlobalFrame, 

GlobalFrameHandle, Lreg, NullGlobalFrame, ProcDesc, SD, StateVector , 

SVPointer, WDCreg, XTSreg], 
CoreSwapDefs: FROM "coreswapdefs" USING [ 

callDP, ExternalStateVector, Puntlnfo, PuntTable, startDP, SwapReason], 
DebugBreakptDefs: FROM "debugbreakptdef s" USING [Break, Val idateBreakpoint] , 
DebugCacheDefs: FROM "debugcachedef s" USING [ProcessMapLog] , 
DebugContextDefs: FROM "debugcontextdef s" USING [InitBCD], 
DebugData: FROM "debugdata" USING [ 

altoXM, DebuggeeFP, debugPilot, ESV, level, mdsContext, onDO, 

restartmessage, SelfFP, worryentry], 
DebuggerDefs: FROM "debuggerdef s" USING [LA], 
DebugMiscDef s: FROM "debugmiscdef s" USING [ 

CopyRead, CopyWrite, DebugAbort, DebugCommand , 

UCSHandler], 
DebugUtilityDefs: FROM "debugutil i tydef s" USING [ 

FlushCodeSegmentCache, FlushCoreCache, 

LongREAO.MREAD. MWRITE. SREAD, SWRITE], 
ImageDefs: FROM "imagedefs" USING [StopMesa, UserCleanupProc] , 
InlineDefs: FROM "inlinedefs" USING [DIVMOD. LongMult], 
lODefs: FROM "iodefs" USING [WriteChar, WriteString] , 
LoadStateDefs: FROM "loadstatedef s" USING [ 

FileSegmentHandle, GetLoadState, SetLoadState] , 
NovaOps: FROM "novaops" USING [NovalnLd. NovaJSR. NovaOutLd], 
OsStaticDefs: FROM "osstaticdefs" USING [OsStatics], 
ProcessDefs: FROM "processdef s" USING [ 

CurrentPSB, Def aul tPriority , Disablelnterrupts , Enablelnterrupts, 

Priority, ProcessHandle, PSB], 
SDDefs: FROM "sddefs" USING [ 

SD, sFirstProcess , sFirstStateVector , sGFTLength, sLastProcess, 

sXferTrap] , 
SegmentDefs: FROM "segmentdef s" USING [ 

DeleteFil eSegment , FileHandle, FileSegmentHandle, InsertFile, 

NewFileSegment , Read, SetFi leSegmentDA, Swapin, Unlock, Write], 
StringDefs: FROM "stringdef s" USING [Substring]; 

DEFINITIONS FROM DebugMi scDef s , DebugUtilityDefs; 

ExternalUtil i ties: PROGRAM 

IMPORTS DDptr: DebugData, DebugBreakptDefs. DebugCacheDefs. 

DebugContextDefs, DebugMiscDef s , DebugUtilityDefs, 

ImageDefs, lODefs, LoadStateDefs, SegmentDefs 
EXPORTS DebugUtilityDefs 
SHARES ProcessDefs = 

BEGIN 

FrameHandle: TYPE = ControlDefs. FrameHandle; 
GlobalFrameHandle: TYPE = ControlDefs .GlobalFrameHandle; 
FileHandle: TYPE = SegmentDefs . FileHandle; 
FileSegmentHandle: TYPE = SegmentDefs , FileSegmentHandle; 
SVPointer: TYPE = ControlDefs .SVPointer ; 
LA: TYPE = DebuggerDefs . LA; 

DebuggerBooted: BOOLEAN ♦- FALSE; 

InitDebugger: PUBLIC SIGNAL [sp: SVPointer, message: STRING] ^ CODE; 
InitUCSHandler: PUBLIC SIGNAL [ 

sp: SVPointer, signal: UNSPECIFIED] « CODE; 
InitMapCleanup: PUBLIC SIGNAL « CODE; 
DebuggerError: PUBLIC SIGNAL = CODE; 
saveXMDisplayWordTaskBank: WORD <- 0; 
XMDisplayWordTaskBank: POINTER = LOOPHOLE[177751B]; 



CoreSwap: PUBLIC PROCEDURE [why: CoreSwapDefs .SwapReason] 
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BEGIN OPEN DebugCacheDefs, NovaOps, ControlDefs, SDDefs; 

wdc: CARDINAL; 

xferTrapStatus: CARDINAL; 

xferTrapHandler: UNSPECIFIED; 

e: CoreSwapDefs.ExternalStateVector <-• DDptr.ESV; 

flag: [0..2]; 

IF DebuggerBooted THEN 

BEGIN 

IF why = quit OR why « kill THEN ImageDef s .StopMesa[] ; 

lODef s .Wri teString["Core image not healthy, can't swap"L]; 

SIGNAL DebugAbort; 

END; 
DO 

e. reason «- why; 
FlushCodeSegmentCache[] ; 

[] ♦- FlushCoreCache[0, AllocDef s .Def auUDataSegmentInf o, NIL]; 
ImageDef s .UserC1eanupProc[0utLd] ; 
DDptr .worryentry <- FALSE; 
ProcessDefs.Disab1eInterrupts[]; 
xferTrapHandler <- SD[sXferTrap]; 
SD[sXferTrap] ♦- REGISTER[Lreg] ; 
XferTrapStatus <- REGISTER[XTSreg] ; 
REGISTER[XTSreg] ♦- 0; 
wdc ♦- REGISTER[WDCreg]; 

flag *- NovaOutLd[OutLd, ©DDptr.Self FP , @e]; 
REGISTER[WDCreg] ^ wdc; 
SD[sXf erTrap] <- xferTrapHandler; 
ProcessDefs.Enab1eInterrupts[]; 
IF flag = THEN -- just completed OutLd 

BEGIN 

IF why = install THEN ImageDef s .StopMesa[] ; 

e. level *- DDptr . level ; 

XMDisplayWordTaskBankt <- saveXMDispl ayWordTaskBank; 

NovaInLd[InLd,@DDptr.DebuggeeFP,@e]; 

END; 

saveXMDisplayWordTaskBank ♦- XMDisplayWordTaskBankt; 
XMDisplayWordTaskBankt <- 0; 

REGISTER[ControlDefs.XTSreg] <- xferTrapStatus; 

ImageDef s.UserCleanupProc[ I nLd]; 

DDptr.ESV ^ e; 

SELECT flag FROM 

1 => -~ just started by InLd 
BEGIN OPEN DebugBreakptDefs; 
SetDebugeeType[] ; 
DebuggerBooted ^ FALSE; 
SELECT e. reason FROM 

breakpoint, worrybreak, interrupt => 
BEGIN 

IF e. reason = worrybreak THEN DDptr .worryentry <- TRUE; 
IF ~Val idateBreakpoint[e. state] OR e. reason = interrupt THEN 
BEGIN 

IF e. level tf DDptr. level THEN 
BEGIN 

DDptr .restartmessage ♦- "*** interrupt ***"; 
SetupLoadState[@DDptr.ESV.loadstateCFA. DDptr . ESV. 1 spages]; 
SIGNAL InitDebugger[e. state. NIL]; 
END; 
IODefs.WriteString["*** interrupt ♦*♦"]; 
IF DDptr . debugPilot THEN ProcessMapLog[e.mapLog] ; 
DebugCommand[e . state] ; 
END 
ELSE 
BEGIN 

IF DDptr .debugPilot THEN ProcessMapLog[e,mapLog] ; 
Break[e. state]; 
END; 
why ^ proceed; 
END; 
expl icitcal 1 , cleanmaplog «> 
BEGIN 
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usermessage: STRING <- GetUserMessage[e. state] ; 
IF e. level # DDptr. level THEN 
BEGIN 

SetupLoadState[@DDptr.ESV.loaclstateCFA, DDptr .ESV. Isp ages]; 
IF e. reason « explicitcall THEN 
BEGIN 

SIGNAL InitDebugger[e . state, usermessage]; 
END 
ELSE 
BEGIN 

DDptr . restartmessage ♦- "*** Processing VM Map ***"; 
SIGNAL InitMapCleanup; 
END; 
END; 
IF DDptr. clebugPilot THEN 
BEGIN 
IF e. reason » cleanmaplog THEN 

IODefs.WriteString["*** Processing VM Map ***"]; 
ProcessMapLog[e.mapLog]; 
END 
ELSE 
BEGIN 

IF usermessage § NIL THEN UserWriteString[usermessage]; 
DebugCommand[e. state] 
END; 
why ♦■ proceed; 
END; 
uncaughtsignal «> 
BEGIN 

IF e. level ft DDptr. level THEN 
BEGIN 

SetupLoadState[@DDptr.ESV.loadstateCFA. DDptr .ESV. 1 spages]; 
SIGNAL InitUCSHandler [e. state. MREAD[@e. state. stk[l]]]; 
END; 
IF DDptr . debugPilot THEN ProcessMapLog[e.mapLog] ; 
UCSHandler[e. state, MREAD[@e. state. stk[l]]]; 
why ^ resume; 
END; 
punt «> 
BEGIN 

DDptr . restartmessage <- "♦*♦ Fatal System Error (Punt) ♦**"; 
GOTO booted; 
END; 
return => EXIT; 

ENDCASE => SIGNAL DebuggerError ; 
END; 
2 => -- Just booted 
BEGIN OPEN CoreSwapDefs; 
SetDebugeeType[] ; 

DDptr . restartmessage <- "*** Debugger Bootloaded ***"; 
CopyRead[ 

from: @LOOPHOLE[SREAD[PuntInfo] , POINTER TO PuntTable] . puntESV, 
to: QDDptr.ESV, nwords: SIZE[ExternalStateVector]] ; 
GOTO booted; 
END; 
ENDCASE; 
REPEAT 
booted => 
BEGIN 

DebuggerBooted +- TRUE; 

DDptr. ESV. state ^ GetCurrentStateFromPSB[] ; 
SetupLoadState[@DDptr.ESV.loadstateCFA, DDptr . ESV. 1 spages]; 
SIGNAL InitDebugger[DDptr. ESV. state. NIL]; 
END; 
ENDLOOP; 

DDptr. ESV <- e; 

RETURN 

END; 

GetUserMessage: PROCEDURE [state: SVPointer] RETURNS [message: STRING] » 
BEGIN OPEN ControlDefs; 
s: StateVector; 

DebugMiscDefs.CopyRead[from: state, to: @s, nwords: SIZE[StateVector]] ; 
message <- IF s.stkptr « 1 THEN s.stk[0] ELSE NIL; 
s.stkptr <- 0; 
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DobugMiscDef s .CopyWrite[f rom: 0s, to: state, nwords: SIZI:[StateVector]] ; 

RETURN 

END; 

SetDebugeeType: PROCEDURE » 

BEGIN OPEN OsStaticDefs, NovaOps; 
vers: ARRAY [0..1] OF WORD <- [61014B, 1400B]; 
OsStatics.AltoVors ion <- NovaJSR[JSR, ©vers, 0]; 
DDptr.onDO ♦- OsStatics . A1 toVersion . engineeringnumber >» 4; 
DDptr.altoXM <- OsStatics .Al toVorsion .engineeringnumber = 3; 
DDptr.debugPilot ^ FALSE; 
DDptr .mdsContext <- 0; 
IF DDptr. ESV. extension. notMesa40 THEN 
SELECT DDptr. ESV. extension. type FROM 
nonSwappingPilot, pilot »=> 

BEGIN DDptr. mdsContext *- DDptr . ESV. mds ; DDptr.debugPilot ♦- TRUE END; 
ENDCASE; 
END; 

GetCurrentStateFromPSB: PUBLIC PROCEDURE RETURNS [SVPointer] •= 
BEGIN OPEN SDDefs, ControlDefs, ProcessDefs; 
priority: Priority <- IF Val idatePSB[SREAD[CurrentPSB]] 

THEN GetProcessPriority[SREAD[CurrentPSB]] ELSE Def aul tPriority ; 
RETURN[LOOPHOLE[SREAD[SD+sFirstStateVector]+priority*SIZE[StateVector]]] 
END; 

GetProcessPriority: PUBLIC PROCEDURE [psb: ProcessDefs . ProcessHandle] 
RETURNS [ProcessDefs. Priority] =» 
BEGIN OPEN ProcessDefs; 
localPSB: PSB; 

CopyRead[from: psb, to: ©localPSB, nwords: SIZE[PSB]]; 
RETURN[local PSB. priority] 
END; 

ValidatePSB: PUBLIC PROCEDURE [psb: ProcessDefs .ProcessHandle] RETURNS [BOOLEAN] 
BEGIN OPEN ProcessDefs, SDDefs; 
fakePSB: INTEGER ^ LOOPHOLE[psb , INTEGER]; 
firstPSB: INTEGER <- SREAD[0SD[sFi rstProcess]] ; 
IF fakePSB < firstPSB OR fakePSB > SREAD[@SD[sLastProcess]] THEN 

RETURN[FALSE]; 
RETURN[(fakePSB-firstPSB) MOD SIZE[PSB] « 0] 
END; 

SetupLoadState: PROCEDURE [ 

cfa: POINTER TO Al toFileDef s .CFA, pages: CARDINAL] = 

BEGIN OPEN SegmentDefs. LoadStateDef s ; 

file: FileHandle; 

newseg: FileSegmentHandle; 

IF (newseg *- GetLoadState[]) H NIL THEN 

BEGIN 

UNTIL newseg. lock = DO Unlock[newseg]; ENDLOOP; 

DeleteFileSegment[newseg] ; 

END; 
file <- InsertFile[@cfa.fp, Read+Write]; 
BEGIN 

newseg <- FindLoadState[f ile . ©cfa.fa, pages 1 ANY => GOTO badCFA]; 
EXITS 

badCFA => newseg <- NIL; 
END; 

SetLoadSt ate [newseg]; 
DebugContextDefs.InitBCD[]; 
RETURN; 
END; 

FindLoadState: PROCEDURE [ 

file: FileHandle, Fa: POINTER TO Al toFileDef s . FA, pages: CARDINAL] 

RETURNS [seg: FileSegmentHandle] = 

BEGIN OPEN SegmentDefs; 

seg <- NewFil eSegment[f ile, fa. page, pages. Read]; 

SetFileSegmentDA[seg, fa. da I UNWIND => DeleteFileSegment[seg]] ; 

Swapln[seg I UNWIND => DeleteFileSegment[seg]] ; 

Unlock[seg] ; 

RETURN 

END; 

ValidGlobalFrame: PUBLIC PROCEDURE [g: Global FrameHandle] RETURNS [BOOLEAN] « 
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BEGIN OPEN ControlDefs; 

IF LOOPHOLE[g. ProcDesc] . tag ^ frame THEN RETURN[FALSE] ; 

RETURN[MREAD[0GFT[ReadG1obalGFI[g]]. frame] « g] 

END; 

ReverseEnumerateGlobalFrames: PUBLIC PROCEDURE [ 

proc: PROCEDURE [Global FrameHandle] RETURNS [BOOLEAN]] 

RETURNS [GlobalFrameHandle] = 

BEGIN OPEN ControlDefs, SDDefs; 

gft: DESCRIPTOR FOR ARRAY OF GFTItem « 

DESCRIPTOR[GFT, MREAD[SD+sGFTLength]] ; 
i: GFTIndex; 

frame: GlobalFrameHandle; 
FOR i DECREASING IN [1 .. LENGTH[gft]) DO 

frame <~ MREAD[@gft[i] .frame]; 

IF frame ff Nul IGlobal Frame AND MREAD[@gf t[i] . epbase] « 

AND Val idGlobalFrame[frame] AND proc[frame] 
THEN RETURN [frame]; 

ENDLOOP; 
RETURN [NullGlobalFrame] 
END; 

ReadGlobalGFI: PUBLIC PROCEDURE [frame: GlobalFrameHandle] 
RETURNS [ControlDefs. GFTIndex] = 
BEGIN OPEN ControlDefs; 
localFrame: GlobalFrame; 

CopyRead[f rom: frame, to: QlocalFrame, nwords: SIZE[GlobalFrame]]; 
RETURN[localFrame.gfi] 
END; 

CodeSegment: PUBLIC PROCEDURE [f: FrameHandle] 
RETURNS [SegmentDefs.FileSegmentHandle] =« 
BEGIN 

g: GlobalFrameHandle = MREAD[@f . accessl ink] ; 
RETURN [MREAD[@g.codesegment]] 
END; 

CheckFrame: PUBLIC PROCEDURE [f: FrameHandle] RETURNS [BOOLEAN] = 
BEGIN OPEN ControlDefs; 
gf: GlobalFrameHandle; 

IF (LOOPHOLE[f .CARDINAL] MOD 4) f^ THEN RETURN[FALSE] ; 
gf <r MREAD[@f .accesslink]; 

RETURN[MREAD[@GFT[ReadGlobalGFI[gf]]. frame] = gf] 
END; 

MakeProcedureDescriptor: PUBLIC PROCEDURE [ep: CARDINAL, 

gframe: GlobalFrameHandle] RETURNS [pd: ControlDefs . ProcDesc] = 

BEGIN OPEN ControlDefs, InlineDefs; 

base: CARDINAL; 

offset: EPIndex; 

index: GFTIndex; 

[base, offset] <- DIVMOD[ep, EPRange]; 

pd.gfi +- index <- ReadGlobalGFI[gf rame] + base; 

pd.ep *- offset; pd.tag <- procedure; 

RETURN 

END; 

LAMult: PROCEDURE [CARDINAL, CARDINAL] RETURNS [LA] =« 
LOOPHOLE[InlineDefs.LongMult]; 

LengthenPointer: PUBLIC PROCEDURE [p: POINTER] RETURNS [LONG POINTER] 
BEGIN 

mds: LA = LAMul t[DDptr .mdsContext , Al toDef s .PageSize]; 
Ip: LA *- [LA[low: LOOPHOLE[p], high: 0]]; 
RETURN[IF p = NIL THEN NIL ELSE 1 p . 1 p+mds . 1 i ] 
END; 

UserWriteString: PUBLIC PROCEDURE[s: STRING] - 
BEGIN 

length: INTEGER «- MREAD[@s . length] ; 

UserWri teLongSubString[Leng thenPointer[s] , 0, length]; 
RETURN 
END; 

UserWriteSubString: PUBLIC PROCEDURE[ss : StringDefs .Substring] « 
BEGIN 



ExternalUtilities.mesa Z-Sep-ya 15:32:14 Page 



UserWr iteLongSubString[Leng thenPointer[ss .base] , ss. offset, ss. length]; 

RETURN 

END; 

UserWriteLongString: PUBLIC PROCEDURE[s: LONG STRING] - 
BEGIN 

length: INTEGER <- LongREAD[@s . length] ; 
UserWriteLongSubString[s, 0, length]; 
RETURN 
END; 

UserWriteLongSubString: PUBLIC PR0CEDURE[1 s : LONG STRING, offset, length: CARDINAL] 
BEGIN 

i: CARDINAL; 

s: PACKED ARRAY [0..1] OF CHARACTER; 
p: POINTER « @s ; 

IF offset MOD 2 j^ THEN pt *- LongREAD[01 s . text+off set/2] ; 
FOR i IN [offset. .offset+length) DO 

IF i MOD 2 « THEN pt ^ LongREAD[@l s . text+i/2] ; 

IODefs.WriteChar[s[i MOD 2]]; 

ENDLOOP; 
RETURN 
END; 

UserCall: PUBLIC PROCEDURE [sp: SVPointer] RETURNS [p: SVPointer] » 
BEGIN OPEN CoreSwapDefs, ControlDefs; 
i: CARDINAL; 
sa: DESCRIPTOR FOR ARRAY OF UNSPECIFIED <- DESCRIPTOR[sp , SIZE[StateVector]] ; 

p *- @LOOPHOLE[DDptr.ESV. parameter, canDP].sv; 
FOR i IN [0. .SIZE[StateVector]) DO 

MWRITE[p+i, sa[i]]; 

ENDLOOP; 
DebugUt il i tyDefs .Cor eSwap[ call ] ; 
p <- @LOOPHOLE[DDptr.ESV. parameter, canDP].sv; 
FOR i IN [0. .SIZE[StateVector]) DO 

sa[i] ♦- MREAD[p+i]; 

ENDLOOP: 
RETURN 
END; 

UserStart: PUBLIC PROCEDURE [f: Global FrameHandle] - 
BEGIN 

SWRITE [©LOOPHOLE [DDptr.ESV. parameter, CoreSwapDef s . startDP] . f rame.f ] ; 
CoreSwap[start]; 
RETURN 
END; 

END. . . 



